home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Macademic for Students & Teachers
/
Macademic for Students and Teachers (Quantum Leap)(1992).iso
/
Fun & Games
/
CoreWar
/
vampire
< prev
next >
Wrap
Text File
|
1985-05-18
|
865b
|
40 lines
*
* Vampire -- seek out the enemy, drain the
* life out of him, and then erase him in his
* weakened condition
*
@-230
nprc dat 500 The number of dummy processes
* that the enemy will be forced
* to make.
spin spl 0
djz 2,nprc
trap jmp -1
*
mov null,trap
mov #0,spin
null jmp 0
@-2
fang jmp @1
bite dat 1000
@0
start mov #(spin-bite),@bite
sub bite,@bite ;adjust address of fang
sub #1,bite
mov fang,@bite
add #7,bite
*
cmp #500,nprc ;have we caught anybody?
jmp start ;nope.
*
* the enemy has been caught, and is currently
* being drained of energy. So start the
* process of erasing the world.
*
mov #100,bite ;start near here.
erase mov #0,@bite ;erase everything and
add #1,bite ;hope he dies before we
jmp erase ;kill ourselves